home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / ee16nt.zip / SUBROUTN.INF < prev   
INI File  |  1992-11-13  |  9KB  |  265 lines
  1. [LanguageID]
  2.     ENG
  3. [SetupMessage]
  4.     set Status     = STATUS_FAILED
  5.     set UserAction = "CANCEL"
  6.     set LanguageList = ^(LanguageID, 1)
  7.     Ifcontains(i) $($0) in $(LanguageList)
  8.         goto displaymessage
  9.     else
  10.         set Status = STATUS_NOLANGUAGE
  11.         goto finish_SetupMessage
  12.     endif
  13. displaymessage = +
  14.     set DlgText = $($2)
  15.     ifstr(i) $($1) == "WARNING"
  16.         read-syms WarningDlg$($0)
  17.     else-ifstr(i) $($1) == "FATAL"
  18.         read-syms FatalDlg$($0)
  19.     else-ifstr(i) $($1) == "NONFATAL"
  20.         read-syms NonfatalDlg$($0)
  21.     else-ifstr(i) $($1) == "STATUS"
  22.         read-syms StatusDlg$($0)
  23.     else
  24.         goto finish_SetupMessage
  25.     endif
  26.     ui start "SetupMessage"
  27.     ifstr(i) $(DLGEVENT) == "OK"
  28.         set Status     = STATUS_SUCCESSFUL
  29.         set UserAction = $(DLGEVENT)
  30.     else-ifstr(i) $(DLGEVENT) == "CANCEL"
  31.         set Status     = STATUS_SUCCESSFUL
  32.         set UserAction = $(DLGEVENT)
  33.     else
  34.     endif
  35. finish_SetupMessage = +
  36.     Return $(Status) $(UserAction)
  37.     end
  38. [WarningDlgENG]
  39.     DlgType      = "MessageBox"
  40.     STF_MB_TITLE = "Setup Message"
  41.     STF_MB_TEXT  = $(DlgText)
  42.     STF_MB_TYPE  = 2
  43.     STF_MB_ICON  = 5
  44.     STF_MB_DEF   = 2
  45. [FatalDlgENG]
  46.     DlgType      = "MessageBox"
  47.     STF_MB_TITLE = "Setup Message"
  48.     STF_MB_TEXT  = $(DlgText)
  49.     STF_MB_TYPE  = 1
  50.     STF_MB_ICON  = 3
  51.     STF_MB_DEF   = 1
  52. [NonfatalDlgENG]
  53.     DlgType      = "MessageBox"
  54.     STF_MB_TITLE = "Setup Message"
  55.     STF_MB_TEXT  = $(DlgText)
  56.     STF_MB_TYPE  = 1
  57.     STF_MB_ICON  = 5
  58.     STF_MB_DEF   = 1
  59. [StatusDlgENG]
  60.     DlgType      = "MessageBox"
  61.     STF_MB_TITLE = "Setup Message"
  62.     STF_MB_TEXT  = $(DlgText)
  63.     STF_MB_TYPE  = 1
  64.     STF_MB_ICON  = 2
  65.     STF_MB_DEF   = 1
  66. [QueryUserQuit]
  67.     set Status     = STATUS_FAILED
  68.     set UserAction = CANCEL
  69.     set LanguageList = ^(LanguageID, 1)
  70.     Ifcontains(i) $($0) in $(LanguageList)
  71.     else
  72.         set Status = STATUS_NOLANGUAGE
  73.         goto fin_QueryUserQuit
  74.     endif
  75.     read-syms ExitWarningDlg$($0)
  76.     ui start "ExitWarning"
  77.     ifstr(i) $(DLGEVENT) == "YES"
  78.         set Status     = STATUS_SUCCESSFUL
  79.         set UserAction = "OK"
  80.     else-ifstr(i) $(DLGEVENT) == "NO"
  81.         set Status     = STATUS_SUCCESSFUL
  82.         set UserAction = "CANCEL"
  83.     else
  84.     endif
  85. fin_QueryUserQuit = +
  86.     Return $(Status) $(UserAction)
  87. [ExitWarningDlgENG]
  88.     DlgType      = "MessageBox"
  89.     STF_MB_TITLE = "Exit Windows NT Setup"
  90.     STF_MB_TEXT  = "Windows NT is not correcly installed.  Are you "+
  91.                    "sure you want to exit Setup."
  92.     STF_MB_TYPE  = 3
  93.     STF_MB_ICON  = 5
  94.     STF_MB_DEF   = 2
  95. [PushBillboard]
  96.     read-syms BillboardDlg$(!STF_LANGUAGE)
  97.     ui start "Billboard"
  98.     Return
  99. [PopBillboard]
  100.     ui pop 1
  101.     Return
  102. [BillboardDlgENG]
  103.     DlgType     = Billboard
  104.     DlgTemplate = $($0)
  105.     TextFields  = {$($1)}
  106. [AllocateUnusedDrive]
  107.     set Status = STATUS_FAILED
  108.     set Drive  = ""
  109.     ifstr(i) $(!STF_UNUSEDDRIVES) == {}
  110.         goto finish_allocate
  111.     else-ifstr(i) $(!STF_UNUSEDDRIVES) == ""
  112.         goto finish_allocate
  113.     else
  114.         set NewDriveList = {}
  115.         ForListDo $(!STF_UNUSEDDRIVES)
  116.             ifstr(i) $(#) != 1
  117.                 set NewDriveList = >($(NewDriveList), $($))
  118.             else
  119.                 set Drive  = $($)
  120.                 set Status = STATUS_SUCCESSFUL
  121.             endif
  122.         EndForListDo
  123.         set !STF_UNUSEDDRIVES = $(NewDriveList)
  124.     endif
  125. finish_allocate = +
  126.     Return $(Status) $(Drive)
  127. [FreeUnusedDrive]
  128.     set !STF_UNUSEDDRIVES = >($(!STF_UNUSEDDRIVES), $($0))
  129.     Return
  130. [DoAskSource]
  131.     set Status      = STATUS_FAILED
  132.     set Src         = $($0)
  133.     set DriveToFree = ""
  134.     read-syms  AskSourceStrings$(!STF_LANGUAGE)
  135. asksource = +
  136.     read-syms DisketteDlg$(!STF_LANGUAGE)
  137.     ui start "Diskette"
  138.     ifstr(i) $(DLGEVENT) == "CONTINUE"
  139.         LibraryProcedure IsFullPath, $(!LIBHANDLE), CheckPathFullPathSpec $(EditTextOut)
  140.         ifstr(i) $(IsFullPath) == "NO"
  141.             LibraryProcedure STATUS, $(!LIBHANDLE), ProcessForUNC $(EditTextOut)
  142.             ifstr(i) $(STATUS) == "ERROR"
  143.                 shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String1)
  144.                 goto asksource
  145.             else-ifstr(i) $(STATUS) == "NOT-UNC"
  146.                 shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String2)
  147.                 goto asksource
  148.             else-ifstr(i) $(STATUS) == "UNC-NOFREEDRIVE"
  149.                 shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String3)
  150.                 goto asksource
  151.             else-ifstr(i) $(STATUS) == "UNC-FAILCONNECT"
  152.                 shell "" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String4)
  153.                 goto asksource
  154.             else
  155.                 set Src = $(STATUS)
  156.                 GetDriveInPath DriveToFree $(Src)
  157.             endif
  158.         else
  159.             set Src = $(EditTextOut)
  160.         endif
  161.         ui pop 1
  162.         LibraryProcedure STATUS, $(!LIBHANDLE), AppendBackSlash $(Src)
  163.         ifstr(i) $(STATUS) == "ERROR"
  164.             goto finish_DoAskSource
  165.         else
  166.             set Src = $(STATUS)
  167.             set Status = STATUS_SUCCESSFUL
  168.             goto finish_DoAskSource
  169.         endif
  170.     else-ifstr(i) $(DLGEVENT) == "BACK"
  171.         ui pop 1
  172.         set Status = STATUS_USERCANCEL
  173.         goto finish_DoAskSource
  174.     else
  175.         ui pop 1
  176.         goto finish_DoAskSource
  177.     endif
  178. finish_DoAskSource = +
  179.     Return $(Status) $(Src) $(DriveToFree)
  180. [AskSourceStringsENG]
  181. String1 = "Error processing path entered.  Please reenter the path."
  182. String2 = "Setup requires a full path of the Windows NT distribution files.  "+
  183.           "Please reenter the path."
  184. String3 = "Setup failed to find a free drive to use to connect to the "+
  185.           "server specified.  Please free up some drives and try again."
  186. String4 = "Setup failed to connect to the server specified.  Please reenter "+
  187.           "the path."
  188. [DisketteDlgENG]
  189.     DlgType        = "Edit"
  190.     DlgTemplate    = "DISKETTE"
  191.     Caption        = "Windows NT Setup"
  192.     DlgText        = "Please enter the full path of the Windows NT distribution "+
  193.                      "files.  Then choose Continue."
  194.     Continue       = "Continue"
  195.     Cancel         = "Cancel"
  196.     Edit1Label     = ""
  197.     EditTextIn     = $(Src)
  198.     EditFocus      = "ALL"
  199. [SetupHelpIds]
  200.     !MinimumID                 =    0
  201.     !MaximumID                 = 5000
  202.     !InitialContentsID         = 5
  203.     !IDH_DB_COMPUTERNAMEQ_INS  =   10
  204.     !IDH_DB_COMPUTERNAMEV_INS  =   11
  205.     !IDH_DB_FULLNAMEQ_INS      =   30
  206.     !IDH_DB_FULLNAMEV_INS      =   31
  207.     !IDH_DB_ORGNAMEQ_INS       =   32
  208.     !IDH_DB_ORGNAMEV_INS       =   33
  209.     !IDH_DB_INSTALLMODE_INS    =   50
  210.     !IDH_DB_OPTIONS_INS        =   60
  211.     !IDH_DB_SYSTEM_INS         =   70
  212.     !IDH_DB_VIRTUAL_INS        =   80
  213.     !IDH_DB_REPAIR_INS         =   90
  214.     !IDH_DB_PRNSETUP_INS       =  100
  215.     !IDH_DB_OPTIONAL_INS       =  110
  216.     !IDH_DB_CUSTOMISE_INS      =  111
  217.     !IDH_DB_OEMSINGLESEL_INS   =  120
  218.     !IDH_DB_OEMMULTISEL_INS    =  121
  219.     !IDH_DB_ACCOUNTSETUP_INS   =  130
  220.     !IDH_DB_SEARCHDRIVE_INS    =  150
  221.     !IDH_DB_APPCONFLICT_INS    =  151
  222.     !IDH_DB_MAINTAIN_INS       = 1000
  223.     !IDH_DB_MOPTIONAL_INS      = 1010
  224.     !IDH_DB_MCUSTOMISE_INS     = 1011
  225.     !IDH_DB_MSYSTEM_INS        = 1020
  226.     !IDH_DB_MPROFILE_INS       = 1030
  227.     !IDH_DB_DRIVER_INS         = 1040
  228.     !IDH_DB_SELECTDRIVER_INS   = 1041
  229.     !IDH_DB_CARDSELECTION_INS    = 3000    
  230.     !IDH_DB_SOFTSELECTION_INS    = 3001    
  231.     !IDH_DB_OEMNADD1_INS    = 3500    
  232.     !IDH_DB_OEMNADD2_INS    = 3510    
  233.     !IDH_DB_OEMNADDE_INS    = 3520    
  234.     !IDH_DB_OEMNADE1_INS    = 3530    
  235.     !IDH_DB_OEMNADE2_INS    = 3540    
  236.     !IDH_DB_OEMNADEM_INS    = 3550    
  237.     !IDH_DB_OEMNADNE_INS    = 3560    
  238.     !IDH_DB_OEMNADP3_INS    = 3570    
  239.     !IDH_DB_OEMNADP9_INS    = 3580    
  240.     !IDH_DB_OEMNADSO_INS    = 3590    
  241.     !IDH_DB_OEMNADTK_INS    = 3600    
  242.     !IDH_DB_OEMNADUB_INS    = 3610    
  243.     !IDH_DB_OEMNADWD_INS    = 3620    
  244.     !IDH_DB_OEMNADWM_INS    = 3630    
  245.     !IDH_DB_OEMNSVNB_INS    = 3640    
  246.     !IDH_DB_OEMNSVRD_INS    = 3650    
  247.     !IDH_DB_OEMNSVRE_INS    = 3660    
  248.     !IDH_DB_OEMNSVSV_INS    = 3670    
  249.     !IDH_DB_OEMNSVWK_INS    = 3680    
  250.     !IDH_DB_OEMNXPDL_INS    = 3690    
  251.     !IDH_DB_OEMNXPNB_INS    = 3700    
  252.     !IDH_DB_OEMNXPSN_INS    = 3710    
  253.     !IDH_DB_OEMNXPSN_1        = 3711    
  254.     !IDH_DB_OEMNXPSN_2        = 3712    
  255.     !IDH_DB_OEMNXPTC_INS    = 3720    
  256.     !IDH_DB_OEMNXPTC_1        = 3721    
  257.     !IDH_DB_OEMNXPTC_2        = 3722    
  258.     !IDH_DB_OEMNXPTC_3        = 3723    
  259.     !IDH_DB_GET_PROTOCOL    = 4000  
  260.     !IDH_DB_VER_EXISTED        = 4010  
  261.     !IDH_DB_OEMNADEE_INS    = 4020  
  262. [ReadSetupHelpIds]
  263.     read-syms "SetupHelpIds"
  264.     Return
  265.